home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #193 (1992)(Rhein-Sieg-Soft).zip
/
Franz PD Disk #193 (1992)(Rhein-Sieg-Soft).adf
/
GFA.Anwendung
/
Notenpapier.LST
< prev
next >
Wrap
File List
|
1992-09-14
|
4KB
|
100 lines
REM *********************************
REM * Notenpapier V1.01 *
REM * (c) 3.8.1991 by Henry König *
REM * Bornheide 71, 2000 Hamburg 53 *
REM *********************************
init
programmkopf
PRINT AT(7,28);"Notenpapier_V1.01. © 1991 by Henry König, Bornheide 71, 2 Hamburg 53"
PRINT AT(10,31);"Nach dem Ausdruck wird das Programm ohne Warnung sofort beendet!"
papier.drucken
CLOSES 1
CLOSEW #1
END
PROCEDURE papier.drucken ! die eigentliche Druckroutine
s%=6 ! Schleifeneinstieg
WHILE s%>5 ! maximal 5 Seiten
PRINT AT(2,5);"Anzahl der Druckseiten (max. 5), Abbruch mit '0' : ";
INPUT x$
s%=VAL(x$) ! Eingabe in Zahl wandeln
WEND
IF s% THEN
CLR s3 ! Schleifeneinstieg
WHILE s3%=0 OR s3%>25 ! maximal 25 Druckzeilen
PRINT AT(2,9);"Anzahl der Druckzeilen (max. 25): ";
INPUT x$
s3%=VAL(x$) ! Eingabe in Zahl wandeln
WEND
OPEN "O",#2,"PAR:" ! Drucker öffnen
PRINT #2,CHR$(27);"C";CHR$(0);CHR$(12);
PRINT #2,CHR$(27);"E";
FOR s1%=1 TO s% ! Anzahl der Seiten
FOR s2%=1 TO s3% ! Anzahl der Notenlinien je Seite
PRINT #2,CHR$(27);"3";CHR$(16); ! Zeilenabstand 16/216 Inch
FOR l%=1 TO 5 ! Anzahl der Linien
PRINT #2,SPACE$(7);STRING$(72,"_") ! Linie drucken
NEXT l%
PRINT #2,CHR$(27);CHR$(80); ! Zwischenraum
PRINT #2," "
NEXT s2%
PRINT #2,CHR$(12); ! Formfeed
NEXT s1%
CLOSE #2
ENDIF
RETURN
PROCEDURE programmkopf
CLS
COLOR 2 ! schwarze Box
PBOX 1,1,639,20
COLOR 0 ! grau
PBOX 6,4,633,17
COLOR 4 ! hellgrau
LINE 6,4,633,4
LINE 6,4,6,17
PRINT AT(2,2);SPACE$(78)
PCOLOR 5,0
PRINT AT(22,2);"Druckprogramm für Notenpapier"
PCOLOR 1,0
programmfuss
RETURN
> PROCEDURE programmfuss ! Anweisungsboxen zeichnen
COLOR 2 ! schwarz
PBOX 1,(27*8)-10,639,(32*8) ! schwarze Box
COLOR 0 ! grau
PBOX 6,(27*8)-7,633,(28*8)+4 ! graue Box
PBOX 6,(29*8)+2,633,(32*8)-4 ! 2. graue Box
COLOR 4 ! hellgrau
BOX 7,(27*8)-7,633,(32*8)-3
LINE 7,(29*8)+2,633,(29*8)+2
LINE 16,(29*8)-6,639-16,(29*8)-6
LINE 16,(29*8)+5,639-16,(29*8)+5
LINE 639-16,(29*8)-6,639-16,(26*8)+4 ! senkrechter Strich
LINE 16,(29*8)+5,16,(31*8)+2 ! senkrechter Strich
COLOR 2 ! schwarz
LINE 7,(32*8)-3,633,(32*8)-3 ! schwarze Linie
LINE 633,(27*8)-7,633,(32*8)-3
LINE 16,(27*8)-4,639-16,(27*8)-4
LINE 16,(31*8)+2,639-16,(31*8)+2
LINE 16,(29*8)-6,16,(26*8)+4 ! senkrechter Strich
LINE 639-16,(29*8)+5,639-16,(31*8)+2 ! senkrechter Strich
RETURN
> PROCEDURE init
breite%=640 ! Screenbreite
hoehe%=256 ! Screenhöhe
ebenen%=3 ! 3 Bitplanes
OPENS 1,0,0,breite%,hoehe%,ebenen%,&H8000
OPENW #1,0,0,breite%,hoehe%,&H18,&H1800,1
farben.setzen ! Farbpalette setzen
LPOKE ADD(FindTask(0),184),WINDOW(1)! Requester auf GFA-Screen umlenken
RETURN
> PROCEDURE farben.setzen
SETCOLOR 0,5,5,5 ! grau statt blau
SETCOLOR 1,15,15,15 ! weiß bleibt
SETCOLOR 2,0,0,0 ! schwarz erhalten
SETCOLOR 3,15,5,0 ! rot bleibt
SETCOLOR 4,10,10,10 ! hellgrau inverse Farbe im Filerequester
SETCOLOR 5,15,15,0 ! gelb
SETCOLOR 6,0,0,0 ! schwarz = Inverse Farbe im Filerequester
RETURN
REM